home *** CD-ROM | disk | FTP | other *** search
/ Programming Microsoft Visual Basic .NET / Programming Microsoft Visual Basic .NET (Microsoft Press)(X08-78517)(2002).bin / setup / vbnet / 22 xml and adonet / xmldemo / dsbiblio.vb < prev    next >
Encoding:
Text File  |  2001-12-23  |  43.5 KB  |  1,140 lines
  1. '------------------------------------------------------------------------------
  2. ' <autogenerated>
  3. '     This code was generated by a tool.
  4. '     Runtime Version: 1.0.3512.0
  5. '
  6. '     Changes to this file may cause incorrect behavior and will be lost if 
  7. '     the code is regenerated.
  8. ' </autogenerated>
  9. '------------------------------------------------------------------------------
  10.  
  11. Option Strict Off
  12. Option Explicit On
  13.  
  14. Imports System
  15. Imports System.Data
  16. Imports System.Runtime.Serialization
  17. Imports System.Xml
  18.  
  19.  
  20. <Serializable(),  _
  21.  System.ComponentModel.DesignerCategoryAttribute("code"),  _
  22.  System.Diagnostics.DebuggerStepThrough(),  _
  23.  System.ComponentModel.ToolboxItem(true)>  _
  24. Public Class dsBiblio
  25.     Inherits DataSet
  26.     
  27.     Private tablePublishers As PublishersDataTable
  28.     
  29.     Private tableTitles As TitlesDataTable
  30.     
  31.     Private relationPublishersTitles As DataRelation
  32.     
  33.     Public Sub New()
  34.         MyBase.New
  35.         Me.InitClass
  36.         Dim schemaChangedHandler As System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
  37.         AddHandler Me.Tables.CollectionChanged, schemaChangedHandler
  38.         AddHandler Me.Relations.CollectionChanged, schemaChangedHandler
  39.     End Sub
  40.     
  41.     Protected Sub New(ByVal info As SerializationInfo, ByVal context As StreamingContext)
  42.         MyBase.New
  43.         Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(System.String)),String)
  44.         If (Not (strSchema) Is Nothing) Then
  45.             Dim ds As DataSet = New DataSet
  46.             ds.ReadXmlSchema(New XmlTextReader(New System.IO.StringReader(strSchema)))
  47.             If (Not (ds.Tables("Publishers")) Is Nothing) Then
  48.                 Me.Tables.Add(New PublishersDataTable(ds.Tables("Publishers")))
  49.             End If
  50.             If (Not (ds.Tables("Titles")) Is Nothing) Then
  51.                 Me.Tables.Add(New TitlesDataTable(ds.Tables("Titles")))
  52.             End If
  53.             Me.DataSetName = ds.DataSetName
  54.             Me.Prefix = ds.Prefix
  55.             Me.Namespace = ds.Namespace
  56.             Me.Locale = ds.Locale
  57.             Me.CaseSensitive = ds.CaseSensitive
  58.             Me.EnforceConstraints = ds.EnforceConstraints
  59.             Me.Merge(ds, false, System.Data.MissingSchemaAction.Add)
  60.             Me.InitVars
  61.         Else
  62.             Me.InitClass
  63.         End If
  64.         Me.GetSerializationData(info, context)
  65.         Dim schemaChangedHandler As System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
  66.         AddHandler Me.Tables.CollectionChanged, schemaChangedHandler
  67.         AddHandler Me.Relations.CollectionChanged, schemaChangedHandler
  68.     End Sub
  69.     
  70.     <System.ComponentModel.Browsable(false),  _
  71.      System.ComponentModel.DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Content)>  _
  72.     Public ReadOnly Property Publishers As PublishersDataTable
  73.         Get
  74.             Return Me.tablePublishers
  75.         End Get
  76.     End Property
  77.     
  78.     <System.ComponentModel.Browsable(false),  _
  79.      System.ComponentModel.DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Content)>  _
  80.     Public ReadOnly Property Titles As TitlesDataTable
  81.         Get
  82.             Return Me.tableTitles
  83.         End Get
  84.     End Property
  85.     
  86.     Public Overrides Function Clone() As DataSet
  87.         Dim cln As dsBiblio = CType(MyBase.Clone,dsBiblio)
  88.         cln.InitVars
  89.         Return cln
  90.     End Function
  91.     
  92.     Protected Overrides Function ShouldSerializeTables() As Boolean
  93.         Return false
  94.     End Function
  95.     
  96.     Protected Overrides Function ShouldSerializeRelations() As Boolean
  97.         Return false
  98.     End Function
  99.     
  100.     Protected Overrides Sub ReadXmlSerializable(ByVal reader As XmlReader)
  101.         Me.Reset
  102.         Dim ds As DataSet = New DataSet
  103.         ds.ReadXml(reader)
  104.         If (Not (ds.Tables("Publishers")) Is Nothing) Then
  105.             Me.Tables.Add(New PublishersDataTable(ds.Tables("Publishers")))
  106.         End If
  107.         If (Not (ds.Tables("Titles")) Is Nothing) Then
  108.             Me.Tables.Add(New TitlesDataTable(ds.Tables("Titles")))
  109.         End If
  110.         Me.DataSetName = ds.DataSetName
  111.         Me.Prefix = ds.Prefix
  112.         Me.Namespace = ds.Namespace
  113.         Me.Locale = ds.Locale
  114.         Me.CaseSensitive = ds.CaseSensitive
  115.         Me.EnforceConstraints = ds.EnforceConstraints
  116.         Me.Merge(ds, false, System.Data.MissingSchemaAction.Add)
  117.         Me.InitVars
  118.     End Sub
  119.     
  120.     Protected Overrides Function GetSchemaSerializable() As System.Xml.Schema.XmlSchema
  121.         Dim stream As System.IO.MemoryStream = New System.IO.MemoryStream
  122.         Me.WriteXmlSchema(New XmlTextWriter(stream, Nothing))
  123.         stream.Position = 0
  124.         Return System.Xml.Schema.XmlSchema.Read(New XmlTextReader(stream), Nothing)
  125.     End Function
  126.     
  127.     Friend Sub InitVars()
  128.         Me.tablePublishers = CType(Me.Tables("Publishers"),PublishersDataTable)
  129.         If (Not (Me.tablePublishers) Is Nothing) Then
  130.             Me.tablePublishers.InitVars
  131.         End If
  132.         Me.tableTitles = CType(Me.Tables("Titles"),TitlesDataTable)
  133.         If (Not (Me.tableTitles) Is Nothing) Then
  134.             Me.tableTitles.InitVars
  135.         End If
  136.         Me.relationPublishersTitles = Me.Relations("PublishersTitles")
  137.     End Sub
  138.     
  139.     Private Sub InitClass()
  140.         Me.DataSetName = "dsBiblio"
  141.         Me.Prefix = ""
  142.         Me.Namespace = "http://www.tempuri.org/dsBiblio.xsd"
  143.         Me.Locale = New System.Globalization.CultureInfo("en-US")
  144.         Me.CaseSensitive = false
  145.         Me.EnforceConstraints = true
  146.         Me.tablePublishers = New PublishersDataTable
  147.         Me.Tables.Add(Me.tablePublishers)
  148.         Me.tableTitles = New TitlesDataTable
  149.         Me.Tables.Add(Me.tableTitles)
  150.         Dim fkc As ForeignKeyConstraint
  151.         fkc = New ForeignKeyConstraint("PublishersTitles", New DataColumn() {Me.tablePublishers.PubIDColumn}, New DataColumn() {Me.tableTitles.PubIDColumn})
  152.         Me.tableTitles.Constraints.Add(fkc)
  153.         fkc.AcceptRejectRule = AcceptRejectRule.None
  154.         fkc.DeleteRule = Rule.Cascade
  155.         fkc.UpdateRule = Rule.Cascade
  156.         Me.relationPublishersTitles = New DataRelation("PublishersTitles", New DataColumn() {Me.tablePublishers.PubIDColumn}, New DataColumn() {Me.tableTitles.PubIDColumn}, false)
  157.         Me.Relations.Add(Me.relationPublishersTitles)
  158.     End Sub
  159.     
  160.     Private Function ShouldSerializePublishers() As Boolean
  161.         Return false
  162.     End Function
  163.     
  164.     Private Function ShouldSerializeTitles() As Boolean
  165.         Return false
  166.     End Function
  167.     
  168.     Private Sub SchemaChanged(ByVal sender As Object, ByVal e As System.ComponentModel.CollectionChangeEventArgs)
  169.         If (e.Action = System.ComponentModel.CollectionChangeAction.Remove) Then
  170.             Me.InitVars
  171.         End If
  172.     End Sub
  173.     
  174.     Public Delegate Sub PublishersRowChangeEventHandler(ByVal sender As Object, ByVal e As PublishersRowChangeEvent)
  175.     
  176.     Public Delegate Sub TitlesRowChangeEventHandler(ByVal sender As Object, ByVal e As TitlesRowChangeEvent)
  177.     
  178.     <System.Diagnostics.DebuggerStepThrough()>  _
  179.     Public Class PublishersDataTable
  180.         Inherits DataTable
  181.         Implements System.Collections.IEnumerable
  182.         
  183.         Private columnPubID As DataColumn
  184.         
  185.         Private columnName As DataColumn
  186.         
  187.         Private columnCompany_Name As DataColumn
  188.         
  189.         Private columnAddress As DataColumn
  190.         
  191.         Private columnCity As DataColumn
  192.         
  193.         Private columnZip As DataColumn
  194.         
  195.         Private columnState As DataColumn
  196.         
  197.         Private columnTelephone As DataColumn
  198.         
  199.         Private columnFax As DataColumn
  200.         
  201.         Private columnComments As DataColumn
  202.         
  203.         Friend Sub New()
  204.             MyBase.New("Publishers")
  205.             Me.InitClass
  206.         End Sub
  207.         
  208.         Friend Sub New(ByVal table As DataTable)
  209.             MyBase.New(table.TableName)
  210.             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
  211.                 Me.CaseSensitive = table.CaseSensitive
  212.             End If
  213.             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
  214.                 Me.Locale = table.Locale
  215.             End If
  216.             If (table.Namespace <> table.DataSet.Namespace) Then
  217.                 Me.Namespace = table.Namespace
  218.             End If
  219.             Me.Prefix = table.Prefix
  220.             Me.MinimumCapacity = table.MinimumCapacity
  221.             Me.DisplayExpression = table.DisplayExpression
  222.         End Sub
  223.         
  224.         <System.ComponentModel.Browsable(false)>  _
  225.         Public ReadOnly Property Count As Integer
  226.             Get
  227.                 Return Me.Rows.Count
  228.             End Get
  229.         End Property
  230.         
  231.         Friend ReadOnly Property PubIDColumn As DataColumn
  232.             Get
  233.                 Return Me.columnPubID
  234.             End Get
  235.         End Property
  236.         
  237.         Friend ReadOnly Property NameColumn As DataColumn
  238.             Get
  239.                 Return Me.columnName
  240.             End Get
  241.         End Property
  242.         
  243.         Friend ReadOnly Property Company_NameColumn As DataColumn
  244.             Get
  245.                 Return Me.columnCompany_Name
  246.             End Get
  247.         End Property
  248.         
  249.         Friend ReadOnly Property AddressColumn As DataColumn
  250.             Get
  251.                 Return Me.columnAddress
  252.             End Get
  253.         End Property
  254.         
  255.         Friend ReadOnly Property CityColumn As DataColumn
  256.             Get
  257.                 Return Me.columnCity
  258.             End Get
  259.         End Property
  260.         
  261.         Friend ReadOnly Property ZipColumn As DataColumn
  262.             Get
  263.                 Return Me.columnZip
  264.             End Get
  265.         End Property
  266.         
  267.         Friend ReadOnly Property StateColumn As DataColumn
  268.             Get
  269.                 Return Me.columnState
  270.             End Get
  271.         End Property
  272.         
  273.         Friend ReadOnly Property TelephoneColumn As DataColumn
  274.             Get
  275.                 Return Me.columnTelephone
  276.             End Get
  277.         End Property
  278.         
  279.         Friend ReadOnly Property FaxColumn As DataColumn
  280.             Get
  281.                 Return Me.columnFax
  282.             End Get
  283.         End Property
  284.         
  285.         Friend ReadOnly Property CommentsColumn As DataColumn
  286.             Get
  287.                 Return Me.columnComments
  288.             End Get
  289.         End Property
  290.         
  291.         Public Default ReadOnly Property Item(ByVal index As Integer) As PublishersRow
  292.             Get
  293.                 Return CType(Me.Rows(index),PublishersRow)
  294.             End Get
  295.         End Property
  296.         
  297.         Public Event PublishersRowChanged As PublishersRowChangeEventHandler
  298.         
  299.         Public Event PublishersRowChanging As PublishersRowChangeEventHandler
  300.         
  301.         Public Event PublishersRowDeleted As PublishersRowChangeEventHandler
  302.         
  303.         Public Event PublishersRowDeleting As PublishersRowChangeEventHandler
  304.         
  305.         Public Overloads Sub AddPublishersRow(ByVal row As PublishersRow)
  306.             Me.Rows.Add(row)
  307.         End Sub
  308.         
  309.         Public Overloads Function AddPublishersRow(ByVal Name As String, ByVal Company_Name As String, ByVal Address As String, ByVal City As String, ByVal Zip As String, ByVal State As String, ByVal Telephone As String, ByVal Fax As String, ByVal Comments As String) As PublishersRow
  310.             Dim rowPublishersRow As PublishersRow = CType(Me.NewRow,PublishersRow)
  311.             rowPublishersRow.ItemArray = New Object() {Nothing, Name, Company_Name, Address, City, Zip, State, Telephone, Fax, Comments}
  312.             Me.Rows.Add(rowPublishersRow)
  313.             Return rowPublishersRow
  314.         End Function
  315.         
  316.         Public Function FindByPubID(ByVal PubID As Integer) As PublishersRow
  317.             Return CType(Me.Rows.Find(New Object() {PubID}),PublishersRow)
  318.         End Function
  319.         
  320.         Public Function GetEnumerator() As System.Collections.IEnumerator Implements System.Collections.IEnumerable.GetEnumerator
  321.             Return Me.Rows.GetEnumerator
  322.         End Function
  323.         
  324.         Public Overrides Function Clone() As DataTable
  325.             Dim cln As PublishersDataTable = CType(MyBase.Clone,PublishersDataTable)
  326.             cln.InitVars
  327.             Return cln
  328.         End Function
  329.         
  330.         Friend Sub InitVars()
  331.             Me.columnPubID = Me.Columns("PubID")
  332.             Me.columnName = Me.Columns("Name")
  333.             Me.columnCompany_Name = Me.Columns("Company Name")
  334.             Me.columnAddress = Me.Columns("Address")
  335.             Me.columnCity = Me.Columns("City")
  336.             Me.columnZip = Me.Columns("Zip")
  337.             Me.columnState = Me.Columns("State")
  338.             Me.columnTelephone = Me.Columns("Telephone")
  339.             Me.columnFax = Me.Columns("Fax")
  340.             Me.columnComments = Me.Columns("Comments")
  341.         End Sub
  342.         
  343.         Private Sub InitClass()
  344.             Me.columnPubID = New DataColumn("PubID", GetType(System.Int32), Nothing, System.Data.MappingType.Element)
  345.             Me.Columns.Add(Me.columnPubID)
  346.             Me.columnName = New DataColumn("Name", GetType(System.String), Nothing, System.Data.MappingType.Element)
  347.             Me.Columns.Add(Me.columnName)
  348.             Me.columnCompany_Name = New DataColumn("Company Name", GetType(System.String), Nothing, System.Data.MappingType.Element)
  349.             Me.Columns.Add(Me.columnCompany_Name)
  350.             Me.columnAddress = New DataColumn("Address", GetType(System.String), Nothing, System.Data.MappingType.Element)
  351.             Me.Columns.Add(Me.columnAddress)
  352.             Me.columnCity = New DataColumn("City", GetType(System.String), Nothing, System.Data.MappingType.Element)
  353.             Me.Columns.Add(Me.columnCity)
  354.             Me.columnZip = New DataColumn("Zip", GetType(System.String), Nothing, System.Data.MappingType.Element)
  355.             Me.Columns.Add(Me.columnZip)
  356.             Me.columnState = New DataColumn("State", GetType(System.String), Nothing, System.Data.MappingType.Element)
  357.             Me.Columns.Add(Me.columnState)
  358.             Me.columnTelephone = New DataColumn("Telephone", GetType(System.String), Nothing, System.Data.MappingType.Element)
  359.             Me.Columns.Add(Me.columnTelephone)
  360.             Me.columnFax = New DataColumn("Fax", GetType(System.String), Nothing, System.Data.MappingType.Element)
  361.             Me.Columns.Add(Me.columnFax)
  362.             Me.columnComments = New DataColumn("Comments", GetType(System.String), Nothing, System.Data.MappingType.Element)
  363.             Me.Columns.Add(Me.columnComments)
  364.             Me.Constraints.Add(New UniqueConstraint("Constraint1", New DataColumn() {Me.columnPubID}, true))
  365.             Me.columnPubID.AutoIncrement = true
  366.             Me.columnPubID.AllowDBNull = false
  367.             Me.columnPubID.Unique = true
  368.         End Sub
  369.         
  370.         Public Function NewPublishersRow() As PublishersRow
  371.             Return CType(Me.NewRow,PublishersRow)
  372.         End Function
  373.         
  374.         Protected Overrides Function NewRowFromBuilder(ByVal builder As DataRowBuilder) As DataRow
  375.             Return New PublishersRow(builder)
  376.         End Function
  377.         
  378.         Protected Overrides Function GetRowType() As System.Type
  379.             Return GetType(PublishersRow)
  380.         End Function
  381.         
  382.         Protected Overrides Sub OnRowChanged(ByVal e As DataRowChangeEventArgs)
  383.             MyBase.OnRowChanged(e)
  384.             If (Not (Me.PublishersRowChangedEvent) Is Nothing) Then
  385.                 RaiseEvent PublishersRowChanged(Me, New PublishersRowChangeEvent(CType(e.Row,PublishersRow), e.Action))
  386.             End If
  387.         End Sub
  388.         
  389.         Protected Overrides Sub OnRowChanging(ByVal e As DataRowChangeEventArgs)
  390.             MyBase.OnRowChanging(e)
  391.             If (Not (Me.PublishersRowChangingEvent) Is Nothing) Then
  392.                 RaiseEvent PublishersRowChanging(Me, New PublishersRowChangeEvent(CType(e.Row,PublishersRow), e.Action))
  393.             End If
  394.         End Sub
  395.         
  396.         Protected Overrides Sub OnRowDeleted(ByVal e As DataRowChangeEventArgs)
  397.             MyBase.OnRowDeleted(e)
  398.             If (Not (Me.PublishersRowDeletedEvent) Is Nothing) Then
  399.                 RaiseEvent PublishersRowDeleted(Me, New PublishersRowChangeEvent(CType(e.Row,PublishersRow), e.Action))
  400.             End If
  401.         End Sub
  402.         
  403.         Protected Overrides Sub OnRowDeleting(ByVal e As DataRowChangeEventArgs)
  404.             MyBase.OnRowDeleting(e)
  405.             If (Not (Me.PublishersRowDeletingEvent) Is Nothing) Then
  406.                 RaiseEvent PublishersRowDeleting(Me, New PublishersRowChangeEvent(CType(e.Row,PublishersRow), e.Action))
  407.             End If
  408.         End Sub
  409.         
  410.         Public Sub RemovePublishersRow(ByVal row As PublishersRow)
  411.             Me.Rows.Remove(row)
  412.         End Sub
  413.     End Class
  414.     
  415.     <System.Diagnostics.DebuggerStepThrough()>  _
  416.     Public Class PublishersRow
  417.         Inherits DataRow
  418.         
  419.         Private tablePublishers As PublishersDataTable
  420.         
  421.         Friend Sub New(ByVal rb As DataRowBuilder)
  422.             MyBase.New(rb)
  423.             Me.tablePublishers = CType(Me.Table,PublishersDataTable)
  424.         End Sub
  425.         
  426.         Public Property PubID As Integer
  427.             Get
  428.                 Return CType(Me(Me.tablePublishers.PubIDColumn),Integer)
  429.             End Get
  430.             Set
  431.                 Me(Me.tablePublishers.PubIDColumn) = value
  432.             End Set
  433.         End Property
  434.         
  435.         Public Property Name As String
  436.             Get
  437.                 Try 
  438.                     Return CType(Me(Me.tablePublishers.NameColumn),String)
  439.                 Catch e As InvalidCastException
  440.                     Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
  441.                 End Try
  442.             End Get
  443.             Set
  444.                 Me(Me.tablePublishers.NameColumn) = value
  445.             End Set
  446.         End Property
  447.         
  448.         Public Property Company_Name As String
  449.             Get
  450.                 Try 
  451.                     Return CType(Me(Me.tablePublishers.Company_NameColumn),String)
  452.                 Catch e As InvalidCastException
  453.                     Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
  454.                 End Try
  455.             End Get
  456.             Set
  457.                 Me(Me.tablePublishers.Company_NameColumn) = value
  458.             End Set
  459.         End Property
  460.         
  461.         Public Property Address As String
  462.             Get
  463.                 Try 
  464.                     Return CType(Me(Me.tablePublishers.AddressColumn),String)
  465.                 Catch e As InvalidCastException
  466.                     Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
  467.                 End Try
  468.             End Get
  469.             Set
  470.                 Me(Me.tablePublishers.AddressColumn) = value
  471.             End Set
  472.         End Property
  473.         
  474.         Public Property City As String
  475.             Get
  476.                 Try 
  477.                     Return CType(Me(Me.tablePublishers.CityColumn),String)
  478.                 Catch e As InvalidCastException
  479.                     Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
  480.                 End Try
  481.             End Get
  482.             Set
  483.                 Me(Me.tablePublishers.CityColumn) = value
  484.             End Set
  485.         End Property
  486.         
  487.         Public Property Zip As String
  488.             Get
  489.                 Try 
  490.                     Return CType(Me(Me.tablePublishers.ZipColumn),String)
  491.                 Catch e As InvalidCastException
  492.                     Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
  493.                 End Try
  494.             End Get
  495.             Set
  496.                 Me(Me.tablePublishers.ZipColumn) = value
  497.             End Set
  498.         End Property
  499.         
  500.         Public Property State As String
  501.             Get
  502.                 Try 
  503.                     Return CType(Me(Me.tablePublishers.StateColumn),String)
  504.                 Catch e As InvalidCastException
  505.                     Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
  506.                 End Try
  507.             End Get
  508.             Set
  509.                 Me(Me.tablePublishers.StateColumn) = value
  510.             End Set
  511.         End Property
  512.         
  513.         Public Property Telephone As String
  514.             Get
  515.                 Try 
  516.                     Return CType(Me(Me.tablePublishers.TelephoneColumn),String)
  517.                 Catch e As InvalidCastException
  518.                     Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
  519.                 End Try
  520.             End Get
  521.             Set
  522.                 Me(Me.tablePublishers.TelephoneColumn) = value
  523.             End Set
  524.         End Property
  525.         
  526.         Public Property Fax As String
  527.             Get
  528.                 Try 
  529.                     Return CType(Me(Me.tablePublishers.FaxColumn),String)
  530.                 Catch e As InvalidCastException
  531.                     Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
  532.                 End Try
  533.             End Get
  534.             Set
  535.                 Me(Me.tablePublishers.FaxColumn) = value
  536.             End Set
  537.         End Property
  538.         
  539.         Public Property Comments As String
  540.             Get
  541.                 Try 
  542.                     Return CType(Me(Me.tablePublishers.CommentsColumn),String)
  543.                 Catch e As InvalidCastException
  544.                     Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
  545.                 End Try
  546.             End Get
  547.             Set
  548.                 Me(Me.tablePublishers.CommentsColumn) = value
  549.             End Set
  550.         End Property
  551.         
  552.         Public Function IsNameNull() As Boolean
  553.             Return Me.IsNull(Me.tablePublishers.NameColumn)
  554.         End Function
  555.         
  556.         Public Sub SetNameNull()
  557.             Me(Me.tablePublishers.NameColumn) = System.Convert.DBNull
  558.         End Sub
  559.         
  560.         Public Function IsCompany_NameNull() As Boolean
  561.             Return Me.IsNull(Me.tablePublishers.Company_NameColumn)
  562.         End Function
  563.         
  564.         Public Sub SetCompany_NameNull()
  565.             Me(Me.tablePublishers.Company_NameColumn) = System.Convert.DBNull
  566.         End Sub
  567.         
  568.         Public Function IsAddressNull() As Boolean
  569.             Return Me.IsNull(Me.tablePublishers.AddressColumn)
  570.         End Function
  571.         
  572.         Public Sub SetAddressNull()
  573.             Me(Me.tablePublishers.AddressColumn) = System.Convert.DBNull
  574.         End Sub
  575.         
  576.         Public Function IsCityNull() As Boolean
  577.             Return Me.IsNull(Me.tablePublishers.CityColumn)
  578.         End Function
  579.         
  580.         Public Sub SetCityNull()
  581.             Me(Me.tablePublishers.CityColumn) = System.Convert.DBNull
  582.         End Sub
  583.         
  584.         Public Function IsZipNull() As Boolean
  585.             Return Me.IsNull(Me.tablePublishers.ZipColumn)
  586.         End Function
  587.         
  588.         Public Sub SetZipNull()
  589.             Me(Me.tablePublishers.ZipColumn) = System.Convert.DBNull
  590.         End Sub
  591.         
  592.         Public Function IsStateNull() As Boolean
  593.             Return Me.IsNull(Me.tablePublishers.StateColumn)
  594.         End Function
  595.         
  596.         Public Sub SetStateNull()
  597.             Me(Me.tablePublishers.StateColumn) = System.Convert.DBNull
  598.         End Sub
  599.         
  600.         Public Function IsTelephoneNull() As Boolean
  601.             Return Me.IsNull(Me.tablePublishers.TelephoneColumn)
  602.         End Function
  603.         
  604.         Public Sub SetTelephoneNull()
  605.             Me(Me.tablePublishers.TelephoneColumn) = System.Convert.DBNull
  606.         End Sub
  607.         
  608.         Public Function IsFaxNull() As Boolean
  609.             Return Me.IsNull(Me.tablePublishers.FaxColumn)
  610.         End Function
  611.         
  612.         Public Sub SetFaxNull()
  613.             Me(Me.tablePublishers.FaxColumn) = System.Convert.DBNull
  614.         End Sub
  615.         
  616.         Public Function IsCommentsNull() As Boolean
  617.             Return Me.IsNull(Me.tablePublishers.CommentsColumn)
  618.         End Function
  619.         
  620.         Public Sub SetCommentsNull()
  621.             Me(Me.tablePublishers.CommentsColumn) = System.Convert.DBNull
  622.         End Sub
  623.         
  624.         Public Function GetTitlesRows() As TitlesRow()
  625.             Return CType(Me.GetChildRows(Me.Table.ChildRelations("PublishersTitles")),TitlesRow())
  626.         End Function
  627.     End Class
  628.     
  629.     <System.Diagnostics.DebuggerStepThrough()>  _
  630.     Public Class PublishersRowChangeEvent
  631.         Inherits EventArgs
  632.         
  633.         Private eventRow As PublishersRow
  634.         
  635.         Private eventAction As DataRowAction
  636.         
  637.         Public Sub New(ByVal row As PublishersRow, ByVal action As DataRowAction)
  638.             MyBase.New
  639.             Me.eventRow = row
  640.             Me.eventAction = action
  641.         End Sub
  642.         
  643.         Public ReadOnly Property Row As PublishersRow
  644.             Get
  645.                 Return Me.eventRow
  646.             End Get
  647.         End Property
  648.         
  649.         Public ReadOnly Property Action As DataRowAction
  650.             Get
  651.                 Return Me.eventAction
  652.             End Get
  653.         End Property
  654.     End Class
  655.     
  656.     <System.Diagnostics.DebuggerStepThrough()>  _
  657.     Public Class TitlesDataTable
  658.         Inherits DataTable
  659.         Implements System.Collections.IEnumerable
  660.         
  661.         Private columnTitle As DataColumn
  662.         
  663.         Private columnISBN As DataColumn
  664.         
  665.         Private columnYear_Published As DataColumn
  666.         
  667.         Private columnPubID As DataColumn
  668.         
  669.         Private columnSubject As DataColumn
  670.         
  671.         Private columnComments As DataColumn
  672.         
  673.         Private columnDescription As DataColumn
  674.         
  675.         Private columnNotes As DataColumn
  676.         
  677.         Private columnPrice As DataColumn
  678.         
  679.         Private columnDiscountedPrice As DataColumn
  680.         
  681.         Friend Sub New()
  682.             MyBase.New("Titles")
  683.             Me.InitClass
  684.         End Sub
  685.         
  686.         Friend Sub New(ByVal table As DataTable)
  687.             MyBase.New(table.TableName)
  688.             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
  689.                 Me.CaseSensitive = table.CaseSensitive
  690.             End If
  691.             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
  692.                 Me.Locale = table.Locale
  693.             End If
  694.             If (table.Namespace <> table.DataSet.Namespace) Then
  695.                 Me.Namespace = table.Namespace
  696.             End If
  697.             Me.Prefix = table.Prefix
  698.             Me.MinimumCapacity = table.MinimumCapacity
  699.             Me.DisplayExpression = table.DisplayExpression
  700.         End Sub
  701.         
  702.         <System.ComponentModel.Browsable(false)>  _
  703.         Public ReadOnly Property Count As Integer
  704.             Get
  705.                 Return Me.Rows.Count
  706.             End Get
  707.         End Property
  708.         
  709.         Friend ReadOnly Property TitleColumn As DataColumn
  710.             Get
  711.                 Return Me.columnTitle
  712.             End Get
  713.         End Property
  714.         
  715.         Friend ReadOnly Property ISBNColumn As DataColumn
  716.             Get
  717.                 Return Me.columnISBN
  718.             End Get
  719.         End Property
  720.         
  721.         Friend ReadOnly Property Year_PublishedColumn As DataColumn
  722.             Get
  723.                 Return Me.columnYear_Published
  724.             End Get
  725.         End Property
  726.         
  727.         Friend ReadOnly Property PubIDColumn As DataColumn
  728.             Get
  729.                 Return Me.columnPubID
  730.             End Get
  731.         End Property
  732.         
  733.         Friend ReadOnly Property SubjectColumn As DataColumn
  734.             Get
  735.                 Return Me.columnSubject
  736.             End Get
  737.         End Property
  738.         
  739.         Friend ReadOnly Property CommentsColumn As DataColumn
  740.             Get
  741.                 Return Me.columnComments
  742.             End Get
  743.         End Property
  744.         
  745.         Friend ReadOnly Property DescriptionColumn As DataColumn
  746.             Get
  747.                 Return Me.columnDescription
  748.             End Get
  749.         End Property
  750.         
  751.         Friend ReadOnly Property NotesColumn As DataColumn
  752.             Get
  753.                 Return Me.columnNotes
  754.             End Get
  755.         End Property
  756.         
  757.         Friend ReadOnly Property PriceColumn As DataColumn
  758.             Get
  759.                 Return Me.columnPrice
  760.             End Get
  761.         End Property
  762.         
  763.         Friend ReadOnly Property DiscountedPriceColumn As DataColumn
  764.             Get
  765.                 Return Me.columnDiscountedPrice
  766.             End Get
  767.         End Property
  768.         
  769.         Public Default ReadOnly Property Item(ByVal index As Integer) As TitlesRow
  770.             Get
  771.                 Return CType(Me.Rows(index),TitlesRow)
  772.             End Get
  773.         End Property
  774.         
  775.         Public Event TitlesRowChanged As TitlesRowChangeEventHandler
  776.         
  777.         Public Event TitlesRowChanging As TitlesRowChangeEventHandler
  778.         
  779.         Public Event TitlesRowDeleted As TitlesRowChangeEventHandler
  780.         
  781.         Public Event TitlesRowDeleting As TitlesRowChangeEventHandler
  782.         
  783.         Public Overloads Sub AddTitlesRow(ByVal row As TitlesRow)
  784.             Me.Rows.Add(row)
  785.         End Sub
  786.         
  787.         Public Overloads Function AddTitlesRow(ByVal Title As String, ByVal ISBN As String, ByVal Year_Published As Short, ByVal parentPublishersRowByPublishersTitles As PublishersRow, ByVal Subject As String, ByVal Comments As String, ByVal Description As String, ByVal Notes As String, ByVal Price As Single, ByVal DiscountedPrice As Single) As TitlesRow
  788.             Dim rowTitlesRow As TitlesRow = CType(Me.NewRow,TitlesRow)
  789.             rowTitlesRow.ItemArray = New Object() {Title, ISBN, Year_Published, parentPublishersRowByPublishersTitles(0), Subject, Comments, Description, Notes, Price, DiscountedPrice}
  790.             Me.Rows.Add(rowTitlesRow)
  791.             Return rowTitlesRow
  792.         End Function
  793.         
  794.         Public Function FindByISBN(ByVal ISBN As String) As TitlesRow
  795.             Return CType(Me.Rows.Find(New Object() {ISBN}),TitlesRow)
  796.         End Function
  797.         
  798.         Public Function GetEnumerator() As System.Collections.IEnumerator Implements System.Collections.IEnumerable.GetEnumerator
  799.             Return Me.Rows.GetEnumerator
  800.         End Function
  801.         
  802.         Public Overrides Function Clone() As DataTable
  803.             Dim cln As TitlesDataTable = CType(MyBase.Clone,TitlesDataTable)
  804.             cln.InitVars
  805.             Return cln
  806.         End Function
  807.         
  808.         Friend Sub InitVars()
  809.             Me.columnTitle = Me.Columns("Title")
  810.             Me.columnISBN = Me.Columns("ISBN")
  811.             Me.columnYear_Published = Me.Columns("Year Published")
  812.             Me.columnPubID = Me.Columns("PubID")
  813.             Me.columnSubject = Me.Columns("Subject")
  814.             Me.columnComments = Me.Columns("Comments")
  815.             Me.columnDescription = Me.Columns("Description")
  816.             Me.columnNotes = Me.Columns("Notes")
  817.             Me.columnPrice = Me.Columns("Price")
  818.             Me.columnDiscountedPrice = Me.Columns("DiscountedPrice")
  819.         End Sub
  820.         
  821.         Private Sub InitClass()
  822.             Me.columnTitle = New DataColumn("Title", GetType(System.String), Nothing, System.Data.MappingType.Element)
  823.             Me.Columns.Add(Me.columnTitle)
  824.             Me.columnISBN = New DataColumn("ISBN", GetType(System.String), Nothing, System.Data.MappingType.Element)
  825.             Me.Columns.Add(Me.columnISBN)
  826.             Me.columnYear_Published = New DataColumn("Year Published", GetType(System.Int16), Nothing, System.Data.MappingType.Element)
  827.             Me.Columns.Add(Me.columnYear_Published)
  828.             Me.columnPubID = New DataColumn("PubID", GetType(System.Int32), Nothing, System.Data.MappingType.Element)
  829.             Me.Columns.Add(Me.columnPubID)
  830.             Me.columnSubject = New DataColumn("Subject", GetType(System.String), Nothing, System.Data.MappingType.Element)
  831.             Me.Columns.Add(Me.columnSubject)
  832.             Me.columnComments = New DataColumn("Comments", GetType(System.String), Nothing, System.Data.MappingType.Element)
  833.             Me.Columns.Add(Me.columnComments)
  834.             Me.columnDescription = New DataColumn("Description", GetType(System.String), Nothing, System.Data.MappingType.Element)
  835.             Me.Columns.Add(Me.columnDescription)
  836.             Me.columnNotes = New DataColumn("Notes", GetType(System.String), Nothing, System.Data.MappingType.Element)
  837.             Me.Columns.Add(Me.columnNotes)
  838.             Me.columnPrice = New DataColumn("Price", GetType(System.Single), Nothing, System.Data.MappingType.Element)
  839.             Me.Columns.Add(Me.columnPrice)
  840.             Me.columnDiscountedPrice = New DataColumn("DiscountedPrice", GetType(System.Single), Nothing, System.Data.MappingType.Element)
  841.             Me.Columns.Add(Me.columnDiscountedPrice)
  842.             Me.Constraints.Add(New UniqueConstraint("Constraint1", New DataColumn() {Me.columnISBN}, true))
  843.             Me.columnISBN.AllowDBNull = false
  844.             Me.columnISBN.Unique = true
  845.             Me.columnDiscountedPrice.Expression = "Price * .8"
  846.             Me.columnDiscountedPrice.ReadOnly = true
  847.         End Sub
  848.         
  849.         Public Function NewTitlesRow() As TitlesRow
  850.             Return CType(Me.NewRow,TitlesRow)
  851.         End Function
  852.         
  853.         Protected Overrides Function NewRowFromBuilder(ByVal builder As DataRowBuilder) As DataRow
  854.             Return New TitlesRow(builder)
  855.         End Function
  856.         
  857.         Protected Overrides Function GetRowType() As System.Type
  858.             Return GetType(TitlesRow)
  859.         End Function
  860.         
  861.         Protected Overrides Sub OnRowChanged(ByVal e As DataRowChangeEventArgs)
  862.             MyBase.OnRowChanged(e)
  863.             If (Not (Me.TitlesRowChangedEvent) Is Nothing) Then
  864.                 RaiseEvent TitlesRowChanged(Me, New TitlesRowChangeEvent(CType(e.Row,TitlesRow), e.Action))
  865.             End If
  866.         End Sub
  867.         
  868.         Protected Overrides Sub OnRowChanging(ByVal e As DataRowChangeEventArgs)
  869.             MyBase.OnRowChanging(e)
  870.             If (Not (Me.TitlesRowChangingEvent) Is Nothing) Then
  871.                 RaiseEvent TitlesRowChanging(Me, New TitlesRowChangeEvent(CType(e.Row,TitlesRow), e.Action))
  872.             End If
  873.         End Sub
  874.         
  875.         Protected Overrides Sub OnRowDeleted(ByVal e As DataRowChangeEventArgs)
  876.             MyBase.OnRowDeleted(e)
  877.             If (Not (Me.TitlesRowDeletedEvent) Is Nothing) Then
  878.                 RaiseEvent TitlesRowDeleted(Me, New TitlesRowChangeEvent(CType(e.Row,TitlesRow), e.Action))
  879.             End If
  880.         End Sub
  881.         
  882.         Protected Overrides Sub OnRowDeleting(ByVal e As DataRowChangeEventArgs)
  883.             MyBase.OnRowDeleting(e)
  884.             If (Not (Me.TitlesRowDeletingEvent) Is Nothing) Then
  885.                 RaiseEvent TitlesRowDeleting(Me, New TitlesRowChangeEvent(CType(e.Row,TitlesRow), e.Action))
  886.             End If
  887.         End Sub
  888.         
  889.         Public Sub RemoveTitlesRow(ByVal row As TitlesRow)
  890.             Me.Rows.Remove(row)
  891.         End Sub
  892.     End Class
  893.     
  894.     <System.Diagnostics.DebuggerStepThrough()>  _
  895.     Public Class TitlesRow
  896.         Inherits DataRow
  897.         
  898.         Private tableTitles As TitlesDataTable
  899.         
  900.         Friend Sub New(ByVal rb As DataRowBuilder)
  901.             MyBase.New(rb)
  902.             Me.tableTitles = CType(Me.Table,TitlesDataTable)
  903.         End Sub
  904.         
  905.         Public Property Title As String
  906.             Get
  907.                 Try 
  908.                     Return CType(Me(Me.tableTitles.TitleColumn),String)
  909.                 Catch e As InvalidCastException
  910.                     Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
  911.                 End Try
  912.             End Get
  913.             Set
  914.                 Me(Me.tableTitles.TitleColumn) = value
  915.             End Set
  916.         End Property
  917.         
  918.         Public Property ISBN As String
  919.             Get
  920.                 Return CType(Me(Me.tableTitles.ISBNColumn),String)
  921.             End Get
  922.             Set
  923.                 Me(Me.tableTitles.ISBNColumn) = value
  924.             End Set
  925.         End Property
  926.         
  927.         Public Property Year_Published As Short
  928.             Get
  929.                 Try 
  930.                     Return CType(Me(Me.tableTitles.Year_PublishedColumn),Short)
  931.                 Catch e As InvalidCastException
  932.                     Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
  933.                 End Try
  934.             End Get
  935.             Set
  936.                 Me(Me.tableTitles.Year_PublishedColumn) = value
  937.             End Set
  938.         End Property
  939.         
  940.         Public Property PubID As Integer
  941.             Get
  942.                 Try 
  943.                     Return CType(Me(Me.tableTitles.PubIDColumn),Integer)
  944.                 Catch e As InvalidCastException
  945.                     Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
  946.                 End Try
  947.             End Get
  948.             Set
  949.                 Me(Me.tableTitles.PubIDColumn) = value
  950.             End Set
  951.         End Property
  952.         
  953.         Public Property Subject As String
  954.             Get
  955.                 Try 
  956.                     Return CType(Me(Me.tableTitles.SubjectColumn),String)
  957.                 Catch e As InvalidCastException
  958.                     Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
  959.                 End Try
  960.             End Get
  961.             Set
  962.                 Me(Me.tableTitles.SubjectColumn) = value
  963.             End Set
  964.         End Property
  965.         
  966.         Public Property Comments As String
  967.             Get
  968.                 Try 
  969.                     Return CType(Me(Me.tableTitles.CommentsColumn),String)
  970.                 Catch e As InvalidCastException
  971.                     Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
  972.                 End Try
  973.             End Get
  974.             Set
  975.                 Me(Me.tableTitles.CommentsColumn) = value
  976.             End Set
  977.         End Property
  978.         
  979.         Public Property Description As String
  980.             Get
  981.                 Try 
  982.                     Return CType(Me(Me.tableTitles.DescriptionColumn),String)
  983.                 Catch e As InvalidCastException
  984.                     Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
  985.                 End Try
  986.             End Get
  987.             Set
  988.                 Me(Me.tableTitles.DescriptionColumn) = value
  989.             End Set
  990.         End Property
  991.         
  992.         Public Property Notes As String
  993.             Get
  994.                 Try 
  995.                     Return CType(Me(Me.tableTitles.NotesColumn),String)
  996.                 Catch e As InvalidCastException
  997.                     Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
  998.                 End Try
  999.             End Get
  1000.             Set
  1001.                 Me(Me.tableTitles.NotesColumn) = value
  1002.             End Set
  1003.         End Property
  1004.         
  1005.         Public Property Price As Single
  1006.             Get
  1007.                 Try 
  1008.                     Return CType(Me(Me.tableTitles.PriceColumn),Single)
  1009.                 Catch e As InvalidCastException
  1010.                     Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
  1011.                 End Try
  1012.             End Get
  1013.             Set
  1014.                 Me(Me.tableTitles.PriceColumn) = value
  1015.             End Set
  1016.         End Property
  1017.         
  1018.         Public Property DiscountedPrice As Single
  1019.             Get
  1020.                 Try 
  1021.                     Return CType(Me(Me.tableTitles.DiscountedPriceColumn),Single)
  1022.                 Catch e As InvalidCastException
  1023.                     Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
  1024.                 End Try
  1025.             End Get
  1026.             Set
  1027.                 Me(Me.tableTitles.DiscountedPriceColumn) = value
  1028.             End Set
  1029.         End Property
  1030.         
  1031.         Public Property PublishersRow As PublishersRow
  1032.             Get
  1033.                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("PublishersTitles")),PublishersRow)
  1034.             End Get
  1035.             Set
  1036.                 Me.SetParentRow(value, Me.Table.ParentRelations("PublishersTitles"))
  1037.             End Set
  1038.         End Property
  1039.         
  1040.         Public Function IsTitleNull() As Boolean
  1041.             Return Me.IsNull(Me.tableTitles.TitleColumn)
  1042.         End Function
  1043.         
  1044.         Public Sub SetTitleNull()
  1045.             Me(Me.tableTitles.TitleColumn) = System.Convert.DBNull
  1046.         End Sub
  1047.         
  1048.         Public Function IsYear_PublishedNull() As Boolean
  1049.             Return Me.IsNull(Me.tableTitles.Year_PublishedColumn)
  1050.         End Function
  1051.         
  1052.         Public Sub SetYear_PublishedNull()
  1053.             Me(Me.tableTitles.Year_PublishedColumn) = System.Convert.DBNull
  1054.         End Sub
  1055.         
  1056.         Public Function IsPubIDNull() As Boolean
  1057.             Return Me.IsNull(Me.tableTitles.PubIDColumn)
  1058.         End Function
  1059.         
  1060.         Public Sub SetPubIDNull()
  1061.             Me(Me.tableTitles.PubIDColumn) = System.Convert.DBNull
  1062.         End Sub
  1063.         
  1064.         Public Function IsSubjectNull() As Boolean
  1065.             Return Me.IsNull(Me.tableTitles.SubjectColumn)
  1066.         End Function
  1067.         
  1068.         Public Sub SetSubjectNull()
  1069.             Me(Me.tableTitles.SubjectColumn) = System.Convert.DBNull
  1070.         End Sub
  1071.         
  1072.         Public Function IsCommentsNull() As Boolean
  1073.             Return Me.IsNull(Me.tableTitles.CommentsColumn)
  1074.         End Function
  1075.         
  1076.         Public Sub SetCommentsNull()
  1077.             Me(Me.tableTitles.CommentsColumn) = System.Convert.DBNull
  1078.         End Sub
  1079.         
  1080.         Public Function IsDescriptionNull() As Boolean
  1081.             Return Me.IsNull(Me.tableTitles.DescriptionColumn)
  1082.         End Function
  1083.         
  1084.         Public Sub SetDescriptionNull()
  1085.             Me(Me.tableTitles.DescriptionColumn) = System.Convert.DBNull
  1086.         End Sub
  1087.         
  1088.         Public Function IsNotesNull() As Boolean
  1089.             Return Me.IsNull(Me.tableTitles.NotesColumn)
  1090.         End Function
  1091.         
  1092.         Public Sub SetNotesNull()
  1093.             Me(Me.tableTitles.NotesColumn) = System.Convert.DBNull
  1094.         End Sub
  1095.         
  1096.         Public Function IsPriceNull() As Boolean
  1097.             Return Me.IsNull(Me.tableTitles.PriceColumn)
  1098.         End Function
  1099.         
  1100.         Public Sub SetPriceNull()
  1101.             Me(Me.tableTitles.PriceColumn) = System.Convert.DBNull
  1102.         End Sub
  1103.         
  1104.         Public Function IsDiscountedPriceNull() As Boolean
  1105.             Return Me.IsNull(Me.tableTitles.DiscountedPriceColumn)
  1106.         End Function
  1107.         
  1108.         Public Sub SetDiscountedPriceNull()
  1109.             Me(Me.tableTitles.DiscountedPriceColumn) = System.Convert.DBNull
  1110.         End Sub
  1111.     End Class
  1112.     
  1113.     <System.Diagnostics.DebuggerStepThrough()>  _
  1114.     Public Class TitlesRowChangeEvent
  1115.         Inherits EventArgs
  1116.         
  1117.         Private eventRow As TitlesRow
  1118.         
  1119.         Private eventAction As DataRowAction
  1120.         
  1121.         Public Sub New(ByVal row As TitlesRow, ByVal action As DataRowAction)
  1122.             MyBase.New
  1123.             Me.eventRow = row
  1124.             Me.eventAction = action
  1125.         End Sub
  1126.         
  1127.         Public ReadOnly Property Row As TitlesRow
  1128.             Get
  1129.                 Return Me.eventRow
  1130.             End Get
  1131.         End Property
  1132.         
  1133.         Public ReadOnly Property Action As DataRowAction
  1134.             Get
  1135.                 Return Me.eventAction
  1136.             End Get
  1137.         End Property
  1138.     End Class
  1139. End Class
  1140.